Export do Excelu

Otázka od: matko

1. 10. 2004 13:27

Na export pouzivam zdrojaky podla Tipy a triky na www.zive.cz. Tento
vsak uklada vsetko ako string.
Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
Nepozna niekto sikovnu komponentu, alebo unit ?

D.

Martin

Odpovedá: Ales Kerner

9. 10. 2002 9:06

Pokud mas zajem, mohu ti komponentu poslat

Ales Kerner
ales@kerner.cz

----- Original Message -----
From: "Lebeda David" <david.lebeda@comarr.cz>
To: <delphi-l@clexpert.cz>
Sent: Wednesday, October 09, 2002 9:35 AM
Subject: Export do Excelu

> Ahoj,
>
> rad bych se zeptal na zkusenosti se zapisem dat do formatu citelneho
Excelem. Bez
> DDE, OLE, ADO, BDE apod. (na tom trvam). Idealni by byla komponenta nebo
trida
> vytvarejici primo nativni xls soubor. Potrebuji toto:
>
> 1) Omezene moznosti formatovani - moznost nastavit sirku sloupcu a v
nekterych
> bunkach tucne pismo. Zatim nic vic.
>
> 2) Podpora vice listu - Sheets.
>
> 3) Nepotrebuji generovat vzorce, ale format bunek by mel rozlisit stringy
a cisla, aby
> bylo mozne rucne pripadne doplnovat nejake vypocty.
>
> Zkousel jsem komponenty vtkExport. Ty jsou sice perfektne funkcni, ale pri
vetsim
> mnozstvi dat zoufale pomale. Na kazdou zapisovanou bunku je totiz potreba
vytvorit
> range a komponenta pri pozadavku na zapis do noveho range kontroluje, zda
jiz
> takovy range neexistuje a zda se neprekryva s nejakym stavajicim. Coz
zacne zahy
> strasne zdrzovat (prochazeni pole nekolika desitek tisic prvku). Mate
nekdo
> zkusenosti s necim jinym?
>
> Vim, ze pokud ustoupim od pozadavku 2 (vice listu), budu moci pouzit
format slk.
> Zatim bych ale rad zustal u nativniho xls.
>
> To, co potrebuji, je export obecneho datasetu (bez blobu apod.) do xls
souboru, s
> tim, ze pokud pocet radku prekroci kapacitu jednoho listu, bude se
pokracovat na
> dalsi listy. Krome dat bych rad dopsal i nejake udaje - zahlavi apod.
>
> Komponenty nemusi byt free, i kdyz bych to preferoval.
>
> Dik.
>
> David Lebeda

---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.394 / Virová báze: 224 - datum vydání: 3.10.2002

Odpovedá: Ales Pavel

9. 10. 2002 11:35

David Lebeda:
> Vim, ze pokud ustoupim od pozadavku 2 (vice listu), budu moci pouzit
format slk.

kdybys preci jen ustoupil od vice listu tak tady je moje komponenta
FreeExcelSylk
je tam i navod na mych strankach...
http://talpa.chytrak.cz/

,zatim si nikdo nestezoval a to znamena ze je to tak zoufale spatne nebo
zoufale dobre

...
Pouzivam tam streamy tak to myslim docela svistiii...

Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci

Odpovedá: Martin Kasman

1. 10. 2004 14:20

Poradit ti sice neporadim, ale skor by ma zaujimalo, kde si to nasiel presne
na tom www.zive.sk. Mohol by si hodit presny link?

Martin Kasman
M Software

Smrekova 23, 010 07 Zilina 7
++421 908 270 294
mk@martinkasman.sk www.martinkasman.sk

----- Original Message -----
From: "matko" matko@proces.sk

> Na export pouzivam zdrojaky podla Tipy a triky na www.zive.cz. Tento
> vsak uklada vsetko ako string.
> Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
> Nepozna niekto sikovnu komponentu, alebo unit ?
>

----------------------------------------------------------------------------
----

Odpovedá: Pavel Poles

1. 10. 2004 17:24

> Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
> Nepozna niekto sikovnu komponentu, alebo unit ?

Zkus http://talpa.chytrak.cz/ FreeExcelSylk. Neni to sice primo format
Excel, ale funguje to hezky.

Pavel Poles

Odpovedá: Jan Rizek

2. 10. 2004 9:54

nebo zkusit Fastreport (popripade samotny Excel sheet..)

> Na export pouzivam zdrojaky podla Tipy a triky na www.zive.cz. Tento
> vsak uklada vsetko ako string.
> Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
> Nepozna niekto sikovnu komponentu, alebo unit ?
>
> D.
>
> Martin
>
>
>
>

Odpovedá: Pave Gazda

4. 10. 2004 7:08

> Na export pouzivam zdrojaky podla Tipy a triky na www.zive.cz. Tento
> vsak uklada vsetko ako string.
> Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
> Nepozna niekto sikovnu komponentu, alebo unit ?

Ahoj,

ja pouzivam priblizne toto:

var
    Matice : Variant;

procedure XLSSetVar(const R,S: Longint; V:variant);
begin
    Matice[R,S] := V;
end;

***************
no a potom (naplneni matice udaju):

  MemTab.First;
  For i := 0 to MemTab.RecordCount-1 do
  begin
    For j := 0 to MemTab.FieldDefs.Count-1 do
       XLSSetVar(starti+i,j+1,MemTab.Fields[j].Value);
    MemTab.Next;
  end;

***************
a samozrejmne (export do excelu):

    Xls.Worksheet.Range['A1',PosledniBunka].Value := XLS.Matice;

Pavel

Odpovedá: Pave Gazda

4. 10. 2004 9:04

Ahoj

> Potrebujem export celeho datasetu do Excelu zo zachovanim typu dat.
> Nepozna niekto sikovnu komponentu, alebo unit ?

pouzivam toto:

var
    Matice : Variant;

procedure XLSSetVar(const R,S: Longint; V:variant);
begin
    Matice[R,S] := V;
end;

---naplneni matice udaju:

XLS.Matice := VarArrayCreate([1,PocRadku,1,PocSloupcu],varVariant);

MemTab.First;
For i := 0 to MemTab.RecordCount-1 do
begin
  For j := 0 to MemTab.FieldDefs.Count-1 do
     XLSSetVar(starti+i,j+1,MemTab.Fields[j].Value);
  MemTab.Next;
end;

---export do excelu:

Xls.Worksheet.Range['A1',PosledniBunka].Value := XLS.Matice;

Pavel